home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Sound / MrMPEG / Save.rexx < prev    next >
OS/2 REXX Batch file  |  1997-11-22  |  1KB  |  29 lines
  1. /* Save.rexx */
  2.  
  3. options results; parse arg mode; address MrMPEG
  4.  
  5. MUIA_Cycle_Active    = 0x80421788
  6.  
  7. if mode = 1 then filename = 'ENVARC:MrMPEG.prefs'
  8. else filename = 'ENV:MrMPEG.prefs'
  9. if open('SaveFile', filename, 'w') = 1 then do
  10.   popasl ID PATH; writeln('SaveFile', result)
  11.   popasl ID FPATH; writeln('SaveFile', result)
  12.   check ID MONO; writeln('SaveFile', result)
  13.   check ID FILT; writeln('SaveFile', result)
  14.   knob ID VOLM; writeln('SaveFile', result)
  15.   cycle ID DIVS ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  16.   cycle ID QUAL ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  17.   slider ID PRIO; writeln('SaveFile', result)
  18.   cycle ID MAXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  19.   cycle ID MIXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  20.   cycle ID REPT ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  21.   check ID EJCT; writeln('SaveFile', result)
  22.   check ID ADVC; writeln('SaveFile', result)
  23.   check ID RAND; writeln('SaveFile', result)
  24.   cycle ID ABUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  25.   cycle ID IBUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  26.   call close('SaveFile')
  27. end
  28. return
  29.